﻿Public Class htmlView

    Public html As String


    Private Sub htmlView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = html
    End Sub

    Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        '让文件框支持ctrl+a
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
            Dim tb As TextBox = sender
            tb.SelectAll()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        html = TextBox1.Text
    End Sub
End Class